home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 04 geoProgramming / WRDGME.ARC / GEOW6 (.txt) < prev    next >
Encoding:
GEOS ConVerT  |  2019-04-13  |  6.0 KB  |  102 lines
  1. J    GeoWTitle
  2. PRG formatted GEOS file V1.0
  3. NX1000
  4. ;$GEOWORDSMAI
  5. BLASTER'S CONVERTER V2.5
  6. J!GeoWShake
  7. GeoWTiles
  8. Write Image V2.1
  9. geoWrite    V2.1
  10.     .if    Pass1        
  11.     .noeqin
  12.     .noglbl                
  13.     .include    geosSym    
  14.     .include    geosMac    
  15.     .include    GeoWEquates
  16.     .include    GeoWZips
  17.     .glbl
  18.     .eqin
  19.     .endif
  20.     .psect
  21.     TTLSTARTS:
  22.     RECIcons:    
  23.         lda    #<IconTable    ;
  24.     TTLSTARTS:
  25.     RECIcons:    
  26.         lda    #<IconTable    ;J_DoTitle
  27.         sta    r0L
  28.         lda    #>IconTable
  29.         sta    r0H
  30.         jsr    DoIcons
  31.     ColrTitl:
  32.         ldx    #$00
  33.         ldy    #$00
  34.     TCLRLp1:
  35.         lda    TROW1COL,y
  36.         beq    TCLR_End
  37.         sta    $8c7b,x    
  38.         sta    $8ca3,x
  39.         sta    $8ccb,x
  40.         lda    TROW2COL,y    
  41.         sta    $8d1b,x    
  42.         sta    $8d43,x
  43.         sta    $8d6b,x
  44.         lda    TROW3COL,y
  45.         sta    $8dbb,x    
  46.         sta    $8de3,x
  47.         sta    $8e0b,x
  48.         lda    TROW4COL,y
  49.         sta    $8e5b,x    
  50.         sta    $8e83,x
  51.         sta    $8eab,x
  52.         inx
  53.         cpx    #$04
  54.         beq    TDOANINX
  55.         cpx    #$09
  56.         beq    TDOANINX
  57.         cpx    #$0e
  58.         beq    TDOANINX        
  59.         cpx    #$13
  60.         beq    TCLR_End
  61.         jmp    TCLRLp1
  62.     TDOANINX:
  63.         inx
  64.         iny
  65.         jmp    TCLRLp1
  66.     TCLR_End:
  67.         rts
  68.     TROW1COL:    
  69.     .byte    CYAN,LTBLUE,YELLOW,LTRED
  70.     .byte    NULL
  71.     TROW2COL:
  72.     .byte    LTRED,WHIT
  73.     TROW1COL:    
  74.     .byte    CYAN,LTBLUE,YELLOW,LTRED
  75.     .byte    NULL
  76.     TROW2COL:
  77.     .byte    LTRED,WHITE,LTGREY,LTGREEN
  78.     TROW3COL:
  79.     .byte    LTBLUE,LTGREY,CYAN,LTRED
  80.     TROW4COL:
  81.     .byte    YELLOW,CYAN,LTGREEN,LTBLUE
  82.     IconTable:
  83.         .byte    1    
  84.         .word    $a0    
  85.         .byte    $64    
  86.         .word    TitlePic    
  87.         .byte    $03    
  88.         .byte    $18        
  89.         .byte    TtlWide    
  90.         .byte    TtlHigh    
  91.         .word    R_Do1Icon
  92.     TitlePic:
  93.     TtlHigh    ==    picH
  94.     TtlWide    ==    picW
  95.     TitlePic:
  96.     TtlHigh    ==    picH
  97.     TtlWide    ==    picW
  98.     TTLENDS:
  99. @iJ@    
  100. `)J@    
  101. )@!H@    
  102.